
 10  TEXT : HOME
 11  INVERSE
 20  HTAB 15: VTAB 10: PRINT "AVALANCHE"
 21  NORMAL
 30  HTAB 14: VTAB 12: PRINT "BY GEOFF WEY"
 40  FOR X = 1 TO 1000: NEXT
 50  HOME : PRINT "DO YOU NEED INSTRUCTIONS?";
 53 : IF T = 240 THEN T = 0: GOTO 110
 60  GET A$
 70  IF A$ <  > "N" AND A$ <  > "Y" THEN 50
 80  IF A$ = "Y" THEN  GOSUB 9000
 90  GR
 95 S = 1
 100  DIM A(40,6)
 110  FOR B = 1 TO 40: FOR C = 1 TO 6
 130 A(B,C) = 1: NEXT : NEXT
 150  FOR A = 1 TO 6
 160  COLOR= A
 170  HLIN 0,39 AT A
 180  NEXT
 190  COLOR= 15
 200 X =  PDL (0)
 210 X =  INT (37 / 255 * X + 1)
 220  HLIN X - 1,X + 1 AT 38
 230  COLOR= 0
 240  IF X - 1 = 0 THEN 260
 250  HLIN 0,X - 2 AT 38
 260  IF X + 1 = 39 THEN 280
 270  HLIN X + 2,39 AT 38
 280  IF R = 1 THEN 360
 290 B% =  RND (1) * 40 + 1
 300  FOR I = 6 TO 1 STEP  - 1
 310  IF A(B%,I) = 0 THEN  NEXT
 320  IF I = 0 THEN 290
 330 A(B%,I) = 0
 340 R = 1
 350 B% = B% - 1:YO = I
 355  IF I < 5 AND S = 1 THEN S = 2
 356  IF I < 3 AND S <  > 3 THEN S = 3
 360  COLOR= I
 370 Y = YO + S
 380  IF Y >  = 38 THEN 440
 390  PLOT B%,Y
 400  COLOR= 0
 410  PLOT B%,YO
 420 YO = Y
 430  GOTO 190
 440  COLOR= 0
 450  PLOT B%,YO
 460 R = 0
 470  IF B% > X - 2 AND B% < X + 2 THEN SC = SC + (7 - I): GOTO 500
 480 M = M + 1
 485 S = 1
 490  IF M > 5 THEN 550
 500  HOME : PRINT : HTAB 5: PRINT "SCORE:"SC;: HTAB 27
 510  PRINT "MISSES:"M
 520 T = T + 1
 540  GOTO 190
 550  TEXT : HOME
 556  IF I < 3 AND S <  > 3 THEN S = 3
 560  PRINT "YOUR SCORE WAS "SC
 570  PRINT : PRINT : PRINT "CARE TO PLAY AGAIN?";
 580  GET B$
 590  IF B$ <  > "Y" AND B$ <  > "N" THEN 550
 600  IF B$ = "N" THEN  HOME : END
 610  RUN 90
 630  IF T = 240 THEN T = 0: GOTO 110
 9000  HOME : PRINT "  THE OBJECT OF THIS GAME IS TO CATCH ASMANY OF THE
     FALLING 'ROCKS' AS POSSIBLE TO DO THIS, MOVE YOU PADDLE UNDER EACH
     ONE AS IT FALLS. BUT LOOK OUT, AFTER    YOU HAVE EATEN AWAY AT THE M
     OUNTAIN, THE";
 9001  PRINT "SPEED OF THE FALLING ROCKS WILL INCREASEWHEN ONE 'MOUNTIAN'
      IS GONE ANOTHER ONE WILL APPEAR. TRY TO GET AS MANY POINTS  AS POSS
     IBLE!            GOOD LUCK!"
 9010  PRINT : PRINT : HTAB 8: FLASH : PRINT " ";: INVERSE : PRINT "HIT A
     NY KEY TO CONTINUE";: NORMAL
 9020  GET C$
 9030  RETURN